*****************************************************************************************************************************************************
* PROJECT: 		Exposure to the COVID-19 Stock Market Crash and its Effect on Household Expectations
* DATE: 		Nov 2020
* CONTENT: 		TABLES
* AUTHORS: 		Tobin Hanspal, Johannes Wohlfart, Anni Weber
*****************************************************************************************************************************************************

		clear all
		set scheme lean2
		global pm = char(177)
		set more off
		gl date = c(current_date)
		graph set window fontface "cmr10"		
		
* set cd as /Replication_files_HanspalWeberWohlfart2020/


*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~						
** Table A2
*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~	
	
use data/processed/data_1, clear 

*** generate additional variables 
gen empl_other1=empl_other
replace empl_other1=1 if empl_home==1 |student==1
gen empl_out=retired+ empl_other1

*** summary statistics

*~ demographics
tabstat female age age_18_24 age_25_34 age_35_44 age_45_54 age_55_64 age_65 ///
		atleast_bachelor some_college_associate_degree highschool ///
		married separated_divorced widowed, ///
		stats(mean sd p10 p50 p90 n) columns(stats)

*~ income 	
tabstat hhinc_lvl inc_15000 inc_15000_25000 inc_25000_50000 inc_50000_75000 ///
		inc_75000_100000 inc_100000_150000 inc_150000_200000 inc_200000 if  inc_NR!=1, ///
		stats(mean sd p10 p50 p90 n) columns(stats)
		
*~ region and partisanship		
tabstat west midwest northeast south ///
		democrat republican other_party , ///
		stats(mean sd p10 p50 p90 n) columns(stats)
		
		
*~ employment status 	
tabstat	employed self_empl unempl empl_out retired empl_other1 ///
		, ///
		stats(mean sd p10 p50 p90 n) columns(stats)

*~ financial wealth 
tabstat  finwealth_Jan20 ///
		retirewealth_lvl  ofinwealth_lvl   ///
		realestate_lvl  debt_lvl   ///
		netwealth_Jan20  , ///
		stats(mean sd p10 p50 p90 n) columns(stats)	

*~investments 
tabstat	stockinvestor riskshare_finwealth_Jan20 h_stockexperience constrained ///
		, ///
		stats(mean sd p10 p50 p90 n) columns(stats)	
		

*****
*****
*****









